
{***********************************************************}
{                                                           }
{      Luxena dbExpress eXtension Components                }
{                                                           }
{      TDBXUpdateSQL                                        }
{                                                           }
{      Copyright (c) 2001-2006 Luxena Software Company      }
{      http://www.luxena.com                                }
{      e-mail: support@luxena.com                           }
{                                                           }
{***********************************************************}

unit DBXUpdateSQL;

{$I lx.inc}

interface

uses
  LXUpdateSQL;


type

{ TDBXUpdateSQL }

  TDBXUpdateSQL = class(TLXUpdateSQL)
  private
    function GetVersion: string;
    procedure SetVersion(const Value: string);
  public
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
  published
    property Version: string read GetVersion write SetVersion stored False;
  end;


implementation

uses DBXConsts, DBXEvents;


{ TDBXUpdateSQL }

procedure TDBXUpdateSQL.AfterConstruction;
begin
  inherited;
  TDBXEvents.HandleObjectCreate(Self);
end;

procedure TDBXUpdateSQL.BeforeDestruction;
begin
  TDBXEvents.HandleObjectDestroy(Self);
  inherited;
end;

function TDBXUpdateSQL.GetVersion: string;
begin
  Result := DBXVersion;
end;

procedure TDBXUpdateSQL.SetVersion(const Value: string);
begin
end;


end.